home *** CD-ROM | disk | FTP | other *** search
/ Imaginext Pirate Activity / ImaginextPirateActivityCD.iso / Pirate Raider / piratedemo.dxr / Lingo_28.ls < prev    next >
Encoding:
Text File  |  2003-05-30  |  682 b   |  37 lines
  1. property sprt, hitShip
  2. global Ship, MissionState, UserInfo
  3.  
  4. on beginSprite me
  5.   sprt = sprite(me.spriteNum)
  6.   hitShip = 0
  7.   load()
  8. end
  9.  
  10. on save me
  11.   data = [:]
  12.   addProp(data, #loc, sprt.loc)
  13.   addProp(data, #hitShip, hitShip)
  14.   setaProp(UserInfo, sprt.spriteNum, data)
  15. end
  16.  
  17. on load me
  18.   data = getaProp(UserInfo, sprt.spriteNum)
  19.   if not voidp(data) then
  20.     sprt.loc = data.loc
  21.     hitShip = data.hitShip
  22.   end if
  23. end
  24.  
  25. on move me, amt
  26.   sprt.loc = sprt.loc + amt
  27.   dx = Ship.locH - sprt.locH
  28.   dy = Ship.locV - sprt.locV
  29.   d = sqrt((dx * dx) + (dy * dy))
  30.   if (d <= 120) and (MissionState = "BuyMap") then
  31.     hitShip = 1
  32.     go("tradeScreen")
  33.   else
  34.     hitShip = 0
  35.   end if
  36. end
  37.